#!perl -T

use strict;
use warnings;
use Test::More tests => 1;;
use Test::BoostUnit  qw(:ALL);

like(makeOpenTestCase ("TestCase1"), qr|<TestCase name=\"TestCase1\">|ms, "makeOpenTestCase - One Message");

